home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / Finder.p < prev    next >
Encoding:
Text File  |  1991-04-05  |  1.7 KB  |  79 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {}
  4. {    File:        Finder.p    }
  5. {}
  6. {    Contains:    File types of alias files and other Finder/system things.}
  7. {    }
  8. {                }
  9. {     Copyright © Apple Computer, Inc. 1990-1991 }
  10. {    All rights reserved}
  11. {}
  12. {}
  13.  
  14. {$IFC UNDEFINED UsingIncludes}
  15.     {$SETC UsingIncludes := 0}
  16. {$ENDC}
  17.  
  18.  
  19. unit Finder;
  20. interface
  21.     uses
  22.         Types, OSUtils, Files, Dialogs, AppleTalk, Aliases, Folders, GestaltEqu;
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.             { include ResolveAliasFile definition }
  33.  
  34.  
  35.             { include FindFolder definition }
  36.  
  37.  
  38.             { include Finder info and Desktop Database routines }
  39.  
  40.  
  41.         { include gestalt selectors }
  42.  
  43.  
  44.  
  45.  
  46.     const
  47.         kCustomIconResource = -16455;        { Custom icon family resource ID }
  48.  
  49.         kContainerFolderAliasType = 'fdrp';        { type for folder aliases }
  50.         kContainerTrashAliasType = 'trsh';        { type for trash folder aliases }
  51.         kContainerHardDiskAliasType = 'hdsk';        { type for hard disk aliases }
  52.         kContainerFloppyAliasType = 'flpy';        { type for floppy aliases }
  53.         kContainerServerAliasType = 'srvr';        { type for server aliases }
  54.         kApplicationAliasType = 'adrp';        { type for application aliases }
  55.         kContainerAliasType = 'drop';        { type for all other containers }
  56.  
  57.     { type for Special folder aliases }
  58.         kSystemFolderAliasType = 'fasy';
  59.         kAppleMenuFolderAliasType = 'faam';
  60.         kStartupFolderAliasType = 'fast';
  61.         kPrintMonitorDocsFolderAliasType = 'fapn';
  62.         kPreferencesFolderAliasType = 'fapf';
  63.         kControlPanelFolderAliasType = 'fact';
  64.         kExtensionFolderAliasType = 'faex';
  65.  
  66.     { type for AppleShare folder aliases }
  67.         kExportedFolderAliasType = 'faet';
  68.         kDropFolderAliasType = 'fadr';
  69.         kSharedFolderAliasType = 'fash';
  70.         kMountedFolderAliasType = 'famn';
  71.  
  72.  
  73.     { UsingFinder }
  74.  
  75.  
  76. implementation
  77. end.
  78.  
  79.